home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbfloat / parent.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-09-06  |  1.1 KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form parent 
  3.    BackColor       =   &H00808000&
  4.    Caption         =   "Parent"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1650
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1050
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1305
  15.    Width           =   7485
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Exit"
  18.       Height          =   375
  19.       Left            =   270
  20.       TabIndex        =   1
  21.       Top             =   720
  22.       Width           =   2265
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Show floating window"
  26.       Height          =   405
  27.       Left            =   270
  28.       TabIndex        =   0
  29.       Top             =   180
  30.       Width           =   2265
  31.    End
  32. Sub Command1_Click ()
  33.   float.Show
  34. End Sub
  35. Sub Command2_Click ()
  36.   Unload parent
  37.   End
  38. End Sub
  39. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  40.   If Not FloatUnloaded Then
  41.     Unload float
  42.   End If
  43. End Sub
  44.